Komputer for Alle 2001 #16/2001 CD 16 (Black).iso/K-CS.DCR/00159_Klikaktiver 2.ls

Text File | 2001-10-25 | 692 b | 22 lines

property TargetSprite1, TargetSprite2

on mouseUp
  set the visible of sprite TargetSprite1 to 1
  set the visible of sprite TargetSprite2 to 1
end

on getBehaviorDescription
  return "Make two targets sprite visible when clicked."
end

on getPropertyDescriptionList
  if voidp(TargetSprite) then
    set TargetSprite1 to 1
  end if
  if voidp(TargetSprite) then
    set TargetSprite2 to 1
  end if
  set p_list to [#TargetSprite1: [#default: TargetSprite1, #format: #integer, #comment: "Target Sprite Number 1", #range: [#min: 1, #max: 120]], #TargetSprite2: [#default: TargetSprite2, #format: #integer, #comment: "Target Sprite Number 2", #range: [#min: 1, #max: 120]]]
  return p_list
end